ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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PPPPPPPP RRRRRRRR 000000 NN NN 000000 UU UU NN NN cccccccc = EEEEEEEEEE 
PPPPPPPP RRRRRRRR 000000 NN NN 000000 UU UU NN NN cccccccc =EEEEEEEEEE 
PP PP RR RR 00 00 NN NN 00 00 UU UU NN NN ¢C EE 
PP PP RR RR 00 00 NN 00 00 UU UU NN CC EE 
PP PP RR RR 00 00 NNNN NN 00 00 UU UU NNNN NN CC EE 
PP PP RR RR 00 00 NNNN NN 00 CO UU UU NNNN NN CC EE 
PPPPPPPP RRRRRRRR 00 00 NN NN NN 00 00 UU UU NN NN NN CC EEEEEEEE 
PPPPPPPP RRRRRRRR 00 00 NN NN NN OO 00 UU UU NN NN NN CC EEEEEEEE 
PP RR RR 00 00 WN NNNN 00 00 UU UU NN NNNN CC EE 
PP RR RR 00 00 NN NNNN 00 00 UU UU NN NNNN CC EE 
PP RR RR 00 00 NN NN 00 00 UU UU N cc EE cece 
PP RR RR 00 00 NN NN 00 00 UU UU NN NN CC EE eees 
PP RR RR 000000 NN NN 000000 UUUUUUUUUU NN NN cccCCCCC «= EEEEEEEEEE cove 
PP RR RR 000000 NN NN 000000 UUUUUUUUUU NN NN cccccccc =EEEEEEEEEE cece 
LL IIIIII SSSSSSSS 
LL HII SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] Ss 
LL I] SSSSSS 
LL II SSSSSS 
LL I] SS 
LL I] SS 
LL Il $$ 
LL I] Ss 
LLLLLLLLLL IIIT! SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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IDENT = v04-000 
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it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


4 * 
5 . 
§ © 
& 
8 oa 
9 * 
10 'e es SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copree * 
11 '® ONLY IN ACCORDANCE WITH THE {ERAS OF SUCH LICENSE AND WITH THE * 
\¢ 'e INCLUSION OF THE ABOVE Spd NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 ‘ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
14 't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
12 > TRANSFERRED. - 
.* | 
17 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
18 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
sh * CORPORATION. ; 
't 
3 '‘® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
$$ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
; | 
$e | seb aennaesendnnkddnanstnbiinmannsaeeneidinthatieiankadikametbaiadinedden | 
; 
Sd ies 
: : FACILITY: 
0 SET PASSWORD | 
ABSTRACT: 
| 
: This module contains support routines for SET PASSWORD/GENERATE. 
$ i ENVIRONMENT : | 
8 Vax native 


AUTHOR: Brian Bailey , CREATION DATE: Summer 83 


i MODIFIED BY: 
v03-001 SHZ0001 Stephen H. Zalewski 01-feb-1984 
xtensive rewriting” to implement /GENERATE and incorporate 
48 into SET PASSWORD. 
0 e/ 
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~ ROUTINE pronounceable_ 
FUNCTIONAL DESCRIPTION: 


This procedure tests a word supplied by the caller fo 


i The word is tested by using random_word_ and whatever 
! table is in use by random_word_ to determine the syll 


pronounceability of the word supplied. 


INPUT PARAMETERS: 
word - A word consisting of ASCII letters to b 
ALL characters must be lowercase. 


returned hyphens - 
K *i" bit in this array means that the 
character in word is to have a hyphen a 


SSSSVEALAR IS SOSA 


nunits = number of units in unit table. 


7 d_ptr = pointer to digram table 
74 r_ptr = pointer to rules table 
Le l_ptr = pointer to letters table 
77 OUTPUT PARAMETERS: 

78 NONE 


! ROUTINE VALUE: 


digram table. 
SIDE EFFECTS: 
NONE 


RASLSSSELEALATSISS 


1986 92:58:52 SkSvASN 


r pronounceability. 


pa iet ing digram 
abification and 


e tested. 


corresponding 
fter it. 


pronounceability - set if the word is legal according to 
the random word_ algorithm and the 


/ 

, pronounceable_: procedure (word, returned_hyphens, d_ptr, l_ptr. r_ptr, n_units) returns (bit(1)); 

1 dcl word char(*); , /* PARAMETER: word being tested */ 

1 dcl returned_hyphens (+) bit(1) ar /* PARAMETER: ayenens for word */ 
4 : dcl pronounceability bit(1) aligned; /* RETURNS VALUE: set if word is legal */ 
96 1 
97 1 dcl word_length_in_chars fixed bin static; /* Length of word in characters */ 
98 1 dcl word. erray (20) xed bin static; /* word spread out into units */ 
99 1 dcl word_length fixed bin static; /* Length of word_array in units */ 
191 ! dcl word_index fixed bin static; /* index into word_array */ 
1 1 
108 1 dcl random_word_ entry ((*) fixed bin, (*) bit(1) aligned. fixed bin, /* algorithm used to test the */ 
104 1 fixed bin, * rye entry, ptr, ptr, ptr, fixed bin); /* pronounceablilty of word. */ 
193 1 dcl returned_word(0:20) fixed bin; /* word returned by random_word_ */ 
06 1 dcl hyphenated_word(0:20) bit(1) aligned; /* hyphens for word returned from random_word_ */ 
107 1 dcl returned_length fixed bin; /* — orgunens for random_word_, since */ 
108; 1 /* Length of word is already known. «/ 
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1 

1 dcl new_unit fixed bin; /* unit currently being tested in random_unit */ 
1 dcl last _good_unit fixed bin static; /* word_index of last good unit * 

1 dcl splif_point fixed bin; /* index of 2-letter unit to be split into */ 

1 /* single letter units */ 

; dcl vowel_flag bit(1) aligned; /* set when random_vowel is called */ 


/* this array contains information about all possible pairs of units */ 


dcl 1 “presets units, n units) based {d.ptr). 
egin bit(1), /* on if this pair must begin syllable */ 
not_begin bit(1), /* on if this pair must not begin */ 
end bit(1), /* on if this pair must end syllable */ 
not_end bit(1), /* on if this pair must not end */ 
break bit(1) /* on if this pair is a break pair */ 
prefix bitcts, /* on if vowel must precede this pair in same syllable */ 
suffix bit(1) /* on if vowel must follow this pair in same syllable */ 


b & 

illegal_pair bit(1); /* on if this pair may not appear */ 
/* this array contains left justified 1 or 2-letter pairs representing each unit */ | 
dcl letters(O:n_units) char(2) based (l_ptr); 
/* this is the same as letters, but allows reference to individual characters */ 
dcl 1 horrers.split(Omn_units) based (\_ptr), 

first char(1) 

second char (15; 
/* this array has rules for each unit */ 


dcl 1 rules(n_units) based (r_ptr), | 


no_final_split bit(1), /* can't be the | vowel in last syllable */ 
not_begin_syllable bit(1), /* can't begin a syllable */ 
vowel Bbittl), /* this is a vowel */ 
alternate_vowel bit(1); /* this is an alternate vowel, (i.e., “y'’) */ 

dcl n_units fixed bin; /* PARAMETER: number of units in unit table */ 

dcl d_ptr ptr; /* PARAMETER: pointer to digram table */ 

dcl l_ptr ptr; /* PARAMETER: pointer to unit letters */ 


dcl r_ptr ptr; /* PARAMETER: pointer to unit rules */ 


dcl chars char(2); 
dcl char char(1); 
dcl i fixed bin; 
dcl j fixed bin; 


DDD PPP & BB BB BE EE AWN NWI PPP 9 2 ss os 
SOR ISSSNSALUNLSSSLSEGEGWALSSSISVFUNLSSRVUSORONVS Sawoemnunw os 


split_point = 0; 
goto continue; 


pronounceable_$split: entry (word, returned_hyphens spl itpoing. d_ptr, | 
r_ptr, m_units) returns (Bit({)) 


a a a a kk a a ad td dd = ws 2 8 8 
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1 
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1 
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1 
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1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
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1 
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dcl splitpoint fixed bin; /* index of 2-letter unit to be split */ 

split_point = splitpoint; 

continue: 

/* Now that we have the word we want to hyphenate, we wT to divide it up into units as defined «/ 

/* in the gi ram table. We start with the first two Letters in the word, and see if they are equal to any */ 

/* of the 2-letter units. If they are, we store the index of that unit in the word_array, and increment «/ 


/* our word index by 2. If they are not, we see if the first letter is equal to any of the l-letter units. */ 
/* If it is, we store that unit and increment the word_index by 1. If still not found, the character is «/ 
/* not defined as a unit in the digram table and the word is illegal. Of course, the word may still not be */ 
“ es according to random_word_ rules of pronunciation and the digram table, but we'll find that out o 


word_index = 1; 
do i = 1 to word _length_in_chars; 
hars = substr (word, 7, min (2, word_length_in_chars - i + 1)); 


word jongth. inches = length (word); | 
« ; | 


21; 
do j = 1 to n_units while (chars “= letters (j));  /* look for 2-letter unit match */ 
end; 
if j <= n units & word_index “= split_point 
then do; 


: /* match found */ 
word_array (word_index) = j: /* store 2-letter unit index */ 
word index = word_index + 1; 

: 7 +1; /* skip over next unit */ 
end; 
else do; /* two-letter unit not found, search for 1I-letter unit */ 


char = substr (chars, 1, 1); 
do j = 1 to niunits while (char “= letters (j)); 


end; 
if j <= n_units 

the 3 /* match found */ 
word_array (word_index) = ji /* store i-letter unit index */ 
word_index = word_index + 1; 


AVIS SOLE AR AO LOSS UEP WH OSSNA ARON OOS Ue 


end; 
else do; /* not found, unit is illegal */ 
pronounceability = ‘O'b; 
+ (pronounceability); 
end; 


DENIED sn ee ed ed ed 


ooo 
SRLEAR 
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end; 
end; 
word_length = word_index = 1; 

+ word_index = 0; 
3 : /* Now call random_word_, trying to get the word mypoenetes, Special versions of random_unit and */ 
13 ; /* random_vowel are supplied that return units of the word we are trying to hyphenate rather than */ 
1 : /* random units. «/ 
16 call random_word. (returned_word, hyphenated_word, word_length_in_chars, 
17 returned_length, random_unit, random_vowel, 
18 d_ptr, l<ptr, r_ptr, n_units); 
i goto accepted; 
$1 : /* If random_unit ever finds that random_word_ did not accept a unit from the word to be hyphenated, «/ 
22 : /* a nonlocal goto directly to this label (which pops random_word_ off the stack) is made, and we «/ 
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/* abort the whole operation. If the last unit tri ¢ (i.e. the one not eccopted? was a 2-letter unit, */ 
/* we a be able to make the word legal by splitting that unit up into two l-letter units and */ 
/* starting all over. Unfortunately, this is a lot of code and complication for a relatively rare case. */ 


not accepted: 


word_index = word_index = 1; /* index of last unit accepted */ 


ey 
= 1; 
returned_hyphens = '0'b; 
do i = 1 to word_length; 
if J word. index & word_index < word_length /* we never got done with the word */ 
en do; 
prereset = 'O'b; 
f letters split (word_array (i)).second “= ‘ ° /* was it not accepted because of */ 
& split_point = 0 /* an illegal 2-letter unit? «/ 
' then if pronounceable_$split (word, returned_hyphens, i, 
dptr, lptr, r.ptr, nlunits) /* try again with split pair */ 


/* Note: in even rarer cases, the unit that might be split to make this word legal is not the «/ 
/* unit that was rejected, but a previous unit. It's too hard to deal with this case, so we'll */ 
/* refuse the word, even though it —— be legal. As an example, using the standard digram «/ 
/* table, fe ye is a legal word. However, our first attempt was to supply p=r-e-e-gh-u-0 */ 
/* units. Random_word. rejects the ‘'u’’ because it may not follow a ‘‘gh’' unit in this context. */ 
/* Since ‘‘u’’ is not a 2-letter unit, we can't try to split it up, so the word is thrown out. «/ 
/* However, p-r-e-e-g-h-u-0 would have been acceptable to random word_. This is the only case */ 
/* where a word that could have been produced by random_word_ will be rejected by this routine. */ 


then pronounceability = '1'b; /* word was legal when 2-letter unit was split */ 
ere (pronounceability); 
end; 


/* set returned_hyphens bits corresponding to character in word. Note that */ 
/* hyphens returned from random_word_ (hyphenated_word array) point to units, */ 
/* not characters. «/ 
if letters_split (word_array (i)).second “= ° ' 
then j = j + 2; 


else =j+t; 
returned_hyphens (j-1) = hyphenated_word (i); 
n . 


enc; 
pronounceability = ‘1'b; 
return (pronounceability); 
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/* The internal procedures random unit and random_v 
/* acceptance or rejection of unifs they are supply 


random_unit: gros A yy unit); 
dcl returned unit fixed b 


vowel_flag = ‘O'b; 
goto generate; 


random_vowel: 
vowel_flag = ‘1'b; 


generate: 


/* get the next unit of the word being tested 


entry (returned_unit); 


*/ 
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queen keep track of the */ 
ng to random_word._. «/ 


/* a unit from the word being tested */ 


if returned_unit < 0 ! (returned_unit = 0 ad word_index “= 0) 


then goto not accepted; 
word_index = word_index + 


new_Unit = word_array (word. index); 


if Vowel_fla ag 
then if 


returned “unit = new_unit; 
return; 


end; 


end pronounceable_; 


rules. vowel (new unit) 


* if last unit was not accepted */ 
i WF next unit from word */ 


f random_word_ wanted a vowel, and this next - 
oe unit is not one, then we have to give 
then if “rules.alternate_vowel (new_unit) /* can't give random_word_ a en «/ 

then goto not_accepted; «/ 


/* when it expects a vowe 


up 


- 


oo 


wr 
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WAAWAWAW 
MEW 


WOE =O Oe 


vw 
wrod 


Mn 


NOs 


2 ss a tt HH 


Pa1984 12:58:52 SRSVMSMASTER: CC 


ts ROUTINE random_word_ 


FUNCTIONAL DESCRIPTION: 

i This procedure generates a pronounceable random word of caller specified length 
: —F tae the word and the hyphenated (divided into syllables) form of the 
i o 

i INPUT PARAMETERS: 

: hyphens - position of hyphens, bit on indicates hyphen appears 
after corresponding unit in ‘word’. 

length - Length of word to be generated in letters. 

i 

random_unit = routine to be called to generate a random unit. 
random_vowel = routine to be called to generate a random vowel. 

i d_ptr - 

: l_ptr - pointers to digram table. 

: r_ptr - 

n_units - size of digram table (n_units x n_units). 

i QUTPUT PARAMETERS: 

: word - random word, 1 unit per array element. 

: word_length - actual length of word in units. 


! 
i ROUTINE VALUE: 
NONE 

i SIDE EFFECTS: 
; NONE 

«/ 


random_word_: procedure (password, hyphenated_word, songeme word_length, 
renden_unit, rendea_veuet. d.ptr, l_ptr. r_ptr, 


2 
L 
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N_units); 
dcl peosuares’ fixed bin; /* PARAMETER: unit number coded form of word */ 
dcl hyphenated_word(*) bit(1) aligned; /* PARAMETER: position of hyphens in word */ 
dcl length fixed bin; /* PARAMETER: length of word in letters */ 
dcl word_length fixed bin; /* PARAMETER: Length of word in units */ 
dcl n_units fixed bin; /* PARAMETER: number of units in unit table */ 
dcl d_ptr ptr; /* PARAMETER: pointer to digram table */ 
dcl l_ptr ptr; /* PARAMETER: pointer to unit letters table */ 
dcl r_ptr ptr; /* PARAMETER: pointer to unit rules table */ 


/* this array contains information about all possible pairs of units */ 


dcl 1 digrams(n_units, n_units) based(d_ptr), 
g Begin wet, /* on agit pair must begin syllable */ 


1% ba 


Py a KI ts ts 8 tt 9 9 ss 5 ss ts 2 4 ss 2 ss 9 2) sa as a ss 


not begin bitd), /* on if 
end bit(1), /* on if 
not_end bit(1), /* on if 
break bit(1) /* on if 
prefix bitds, /* on if 
suffix bit(1) /* on if 
illegal_pair 6it(1);  /* on if 


/* this array contains left justified 1 
dcl letters(O:n_units) char(2) based(l_p 
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his pair must not bogie «/ 
his pair must end syllable */ 
his pair must not end */ 
his pair is a break pair */ 

vowel must precede this pair in same syllable */ 
vowel must follow this pair in same syllable */ 
this pair may not appear */ 


t 
t 
t 
t 


or 2-letter pairs representing each unit */ 
tr); 


/* this is the same as letters, but allows reference to individual characters */ 


dcl 1 sos vers.spl te tO:n_units) based(l_p 
first char(1) 
second char(15; 


/* this array has rules for each unit */ 


dcl 1 rules(n_units) based(r_ptr), 
no_final split bit(1), 
not_begin_syllable bit(1), 
vowel " 
alternate_vowel bit(1); 


dcl random_unit entry (fixed bin); 
dcl random_vowel entry (fixed bin); 
dcl unit fixed bin; 


dcl nchars fixed bin; 

dcl index fixed bin init(1); 

dcl (first, second) fixed bin init(1 
dcl syllable_length fixed bin init( 


dcl vowel_found bit(1) aligned; 
dcl last_Vowel_found aligned bit(1); 
dcl cons_count fixed bin init(0); 


dcl debug bit(1) aligned init('0'b); 
dcl i fixed bin; 


do i = 0 to length; 
pessuord (i) = 0; 
yphenated_word (i) = "Ob; 


end; 
nchars = length; 


/* get rest of units in password */ 


unit = 0; 
do index = 1 by 1 while (index < 
if syllable_length = 1 


) 
15; / 


tr), 


* can't be the only vowel in last syllable */ 
/* can't begin a syllable */ 

/* this is a vowel */ 
/* this is an alternate vowel, (i.e., “'y'’) */ 


/* get a unit */ 
/* get a vowel unit */ 
/* a unit number from random_unit or random_vowel */ 


/* number of characters in password */ 

/* index of current unit in password */ 

/* index into digram table for current unit pair */ 

* 1 when next unit is Ist in syllable, 2 if 2nd, etc. */ 


/* set if vowel was found somewhere in syllable before this unit */ 
. set if previous unit in this syllable was a vowel * 


* count of consecutive consonants in syllable preceeding current unit */ 


/* debugging switch */ 


= nchars); 


es | 
1 (4), 


3 if-bE6-1 964 9h:28:8s UN VmSMAS TER: CeciUTe™ Eecsrnoname 17 te 


x2.1 
415 then /* on first unit of as ery use ny unit 
2 keep_trying: unt Fi. : — /* last unit was accepted (or first Sad. & make positive */ 
ai tirst.tine: unit = -abs (unit); /* Last unit was not accepted, make negative */ 
420 bi if index = nchars /* if last unit of word must be a syllable, it must be a vowel */ | 
421 pe cal nine my vowel (unit); 
4 ¢ colt random_unit (unit); 
: ? password { ( ingen) = abs (unit); /* put actual unit in word */ | 
425 then if Crorans on Cindex-1), password (index)).illegal_pair 
4 $ then got etry "/* this Ss pair is itiegal «/ 
: ‘ if rules" (password ndex)).not _begin_ syllable 
4 if letters _split.second (password (index)) “= * * 
4 then if index = nchar | 
431 then goto retry; 
4 § else if index = nchars-1 & “rules (password (index)).vowel | 
ti7 “rules io (index)).alternate_vowel 
4 then goto > /* last unit was a double-letter unit and not a vowel */ 
t32 else if unit 2 
238 then goto keep_trying; 
t? else. it “unit’<$ nchars = Achars - 1; 
4: Ay: keep_ trying; 
pettebte. eed. 
; rules” aners Cindex)). vowel {| rules (password (index)).alternate_vowel 
4 cons_count = 0; 
: vowel_found = '1'b; 
end; 
3 else do; | 
4 cons_count = , ee 
. vowel _ found = ‘O'b; | 
en 
3 Last. vowel “found = Ob; 
en 
else do; 
call generate_unit; | 
; at sesend § = 0 then’ goto all_done; /* we have word already */ 
e end: 
1 ! 
' /* enter here at end of word */ 
1 all_done: 
1 word length = index - 1; 
' return; 
1 j 
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/* ROUTINE procedure generete_unit 


FUNCTIONAL DESCRIPTION: 


enerate next unit to password, making sure that it follows these rules: 
- Each syllable must contain exactly 1 or 2 consecutive vowels, 
where y is cqns icored @ vowel. 
2. Syllable end is determined as follows: 
a. Vowel is generated and previous unit is a consonant and 

oy enye already has a vowel. In this case new syllable is 
started and na tlhe contains a vowel. 
b. A pair determined to be a ‘break’ pair is encountered. 
In this case new syllable is started with second unit of this pair. 
c. End et. password is encountered. 
d. beg a encountered legally. New syllable is started 

F. 
e."‘end’’ pair is Legally encountered. New syllable has nothing yet. 
3. Try generating another unit if: 
third consecutive vowel and not y. 

b. ‘break’ pair generated but no vowel yet in current syllable 


or previous 2 units are ‘not_end’’. 

c. ‘begin’ gore generated but no vowel in syllable preceeding 
begin pair, or both previous 2 pairs are designated ‘‘not_end’’. 

end’ pair generated but no vowel in current syllable or in ‘end’ pair. 

e. “‘not_begin’’ pair generated but new syllable must begin 

(because previous syllable ended as defined in 2 above). 

f. vowel is generated and 2a is satisfied, but no syllable break is 

possible in previous 35 pairs. 

g. Second & third units of syllable must begin, and first unit is 


alternate_vowel"’. 


The done routine checks for required prefix vowels & end of word conditions. 
INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


* 
~ 


generate_unit: procedure; 


dcl 1 x, /* rules for the éieren ervonsty being tested*/ 
begin bit(1), /* on if this pair must on'n Syllable */ 
no -begin bit(1), /* on if this pair must not begin */ 
end bit(1), /* on if this pair must end syllable */ 
not_end bit(1), /* on if this pair must not end */ 
break bit(1), /* on if this pair is a break pair */ 
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258: SKSVMSMASTER: CCLIUTL.SRCJPRONOUNCE.PLI;1 (5) | 
* on if vowel must grerede this pair in same syllable */ 

* on if vowel must follow this pair in same syllable */ 

* on if this pair may not appear */ 


prefix bit(1), 
hee t(1) 
Llegal_pair bit(1); 
dcl unit count fixed bin init (1); /* Couns of tries to generate this unit */ 
dcl try for_vowel bit(1) aligned; /* set if next unit needed is a vowel */ 
dcl v BTt(1T aligned; /* set if last unit generated is a vowel, or an “ | 
4 
4 
5 
4 


a- .™ 


NOUS wir 


/* alternate vowel to be treated as a vowel * 
dcl i fixed bin; 


wn 


first = password (index-1); 
/* on Last unit of word and no vowel yet in syllable, or if previous pair */ 


wu 


/* requires a vowel and no vowel in syllable, then try only for a vowel */ 
if syllable_length = /* this is the second unit of syllable */ 
then try_for_vowel = “vowel_found & index=nchars; /* last unit of word and no vowel yet, try for vowel *) 
else * this is at least the third unit of syllable */ 
if “vowel_found :| digrams (password (index-2), viras) get one 


FFF LAAAS 


(a, skip, a); 


9 
? 
¢ then Ery_for_vowel = d grams (password (index- first).suffix; 
else try_for_vowel = ‘O"b; 
ate goto keep_trying; /* on first try of a unit, don't make the tests below */ 
546 : 
30 
548 try_more: 
549 unit = -abs (unit); /* Last unit was not accepted, set sign negative */ 
50 if unit_count = 100 
51 then do; 
3g if debug 
55 then do; 
338 put edit ("100 tries failed to generate unit.', ‘password so far is: ‘) 


| 

| 

| 

/* come here to try another unit when previous one was not accepted */ 
| 

| 

| 


5 

5 do i = 1 to index; 

5 put edit (letters (password (i))) (a); 

; . i 

ut skip; 

60 ond: , ; 
61 call random_word_ (password, hyphenated_word, length, index, 

$¢ random_unit, random_vowel, d_ptr, l_ptr, 
6 riptr, n_units); 
64 second = 0; 
65 return; 

° end; 
$8 : /* come here to try another unit whether last one was accepted or not */ | 
0 keep_trying: 
71 oe "if try. tor vowel | 
% then call random_vowel (unit); 
? else call random_unit (unit); 
° pes Bay (unit); /* save real value of unit number */ 

un 

then unit_count = unit_count + 1;  /* count number of tries */ 


SELESLESLSSELESF OR Sse * 


VV 


sees 


SSSSSF 


PAAASAOAAAO 
a ad ed a a ed 


WO DONO UEWN “OC OOneOuflwn—o 
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/* check if this pair is legal */ 


/e 
Je 
/* 


if ogrene yA second) .illegal_pair 
more; 
else se Vf firsts = second /* if legal, throw out 3 in a row */ 
then i Sesouaré eas = first 


then goto try_m 
if Lestorg, split (second) secénd. £: * * /@ check if this is 2 letters */ 


ndex = neers /* then if this is the ya85 unit of were «/ 
_— goto try_more; /* then a two-letter un s illegal */ 
e nchars “nchars = 13 /* ethorutee decrement number of characters */ 


peseuere ob ge net = second; 
f rules (second) alternate vowel 
then v = “rules (first) vowel; 
else v = rules (second).vowel; 
= $i rams (f ree second); 
if oyite able g_tength > >e2 /* force break if last pair must be followed */ 


ig (password (index-2), first).suffix /* by a vowel and this unit is not a vowel */ 
“vy 
then break = ‘1b; /* if last pair was not_end, new_unit gave us a vowel */ 

In the notation to Ry Ky ight. the series of letters and dots stands «/ 
for the last n units in this syllable, to be interpreted as follows: «/ 
v stands for a souet (including alternate_vowel) «/ 
c stands for a consonant «/ 
- stands for any unit */ 
the dots are interpreted as follows (c is used as example) «/ 
C..-€ one or more consecutive consonants s/ 
C.-C zero or more consecutive consonants «/ 


vost one or more consecutive consonants from beginning of syllable */ 
zero or more consecutive consonants from beginning of syllable */ 
the vertical line } marks a syllable break. 
he group of symbols indicates what units there are in current 
syllable. The “last symbol is always the current unit. 
i e first symbol is not necessarily the f rst unit in the 
syllable, unless preceeded, A tity Thus. ar Se should be 
interpreted as ‘'..xvcc..¢ y ad tot @ beginning of all 
syllables unless dots begin a syllable.) - */ 


if eyt Ladle length = 2 & not_begin /* pair may not begin syllable */ 
oto loop; /* rule 3e. */ 
if vowel oun 
then if cons_count “= 0 


then if ai n /* vc...cx */ 
then if syllable_length “= Fe & not_end_(3) /# VE. o CX begin e/ 
en can “we Break at vc..cicx 
HH not_end_ (2) ie try a break at vc...cix */ 
thén goto Loop; por e 3c. */ 
else call done (v, 2: /* vc...¢ix begin, treat as break */ 
else call begin. (v, 3); /* vc..cicx begin */ 
else if tie begin /* vc...cx “begin */ 
then ifbrea /t eS not sbegin «/ 
then if aaa end_ (2) /ty “§! ix bréak * 
then goto loop; /* ru é b. gan t i «/ 
else call done (v, 2); /* vc...cix «/ 


else if v /* ve. .Cx Ba. not_begin */ 


on petaeeatamese 


Wr—O0Onou 


MAMIVMIVIUIUIVIVIV at et et 
WMO OONOU FW —O0@W wr 


ao 


68 


SESESSe 


PIPIPIPNINININDPDNYDINININININININININYIINIPININIPIPYPINIPIPIPIPIPUNIPUPIPINONOPOPONPoPonononofnorfry 


ao 
28 
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/* vc...cv “break not -begin */ 
We net end_ (2) /* tr break at vc...civ */ 
thén goto Loop /* rule 3f, break no good */ 
o}se call done’ (‘1'b, 2); /* vc...civ treat as break */ 
else end /* vc...cc “break not_begin */ 
“oak, call done f 9, ibe 1s 7s + at + end */ 
else call done ( 0); /* ve...ce “break “end not begin */ 
else if v “hs pee ‘begin “not begin */ 
then P =f rule 2a says we te break somewhere */ 
if not_end_ (3) & sy table. Lorevk’ “= 
then if not_end_ /* vc..cicv doesn’t work e/ 
_—, ve cons. saanl > f /* vc...Civ doesn't work */ 
a a 4 
if, net end. (4) VC.-CICC 
| digrams ‘password Cindex=3)” first). cnet “beste 


hen goto loop /* rule 
else call dene’ (‘1"b, 4); /* VC. .CICCV «/ 
else goto hie, /* me deeae Uy and vc..cicv are no good */ 
e call done, /* ~p 2eCiV treat as break */ 
else call done oe C..CiCy treat as break */ 
else call done ('‘ ft b. ‘Ob: oe VC.eeCC xbeg in “not_begin */ 


else /* vowel found and Last unit is not conkoanent => Last unit is vowel */ 
if v & rules. vpeet (password (index-2)) & index > 2 
then pete | loop; /* rule pe 3 consecutive vowels non-y */ 
else /* vx 
then ogi done ('0'b, 1); /* vx aad «/ 
else if begin * vx “end */ 


/ 
then Ft last_vowel_ found /* vx begin */ 
then if Vv /* v...vvx begin */ 
then 4 syllable_length = 3 /* v...vvv begin */ 


hen if rules( assword(({ndexce)}) .al ternate_vowel wad, yyy begin */ 
® 


then goto loop; /* , ivv 1S no goo 
else call done('1'b, 30" /s Slee egin */ 

else if not end. (3 ) /* hat v begin */ 
apes go 0 loop s sae Se TE pee. ny ene «/ 


se "be 3 /* ie t 
Ke oy Ae len <% = ie 


: rules.alternate shovel ips ve beath oy /* tvve begin */ 


oto loop; is no good */ 


tes “Bie Pulgervowet @agsuaraCfiaex22i¥ 7 /* diye ein «/ 


then call done( b, * ivive begin 
else goto aor 48 /* icive begin is illegal */ 
else if “not end_ ve.evvc begin */ 


VeeevvC begin ery to split pair */ 


the 
if. not end_ (2) is Ve.evve begin * 
thén goto loop; VeeeVVIC NO good «/ 
else call donei'0° “35; /* venevvic #/ 
else call done('1'b, iF /* v...vive begin */ 


try splitting eats os pair */ 
+ syllable Length > /* ..Cvx begin 


2 
f not_end_ (2) /* ...cvx begin */ 
then goto loop; /* rule 3c, ..,cvix no good */ 
cise call done. (v, 2); /* pee CViX beg n */ 
else call done ("1'b, 0); /* we yorain / 
ote, 4 break /* begin “end */ 
hen if not_end_(2) & syllable_ Length 5 3 /* ..xvx break */ 
then gofo loop; b. ..xvix iS no good */ 


1 
1-36-19 Pb:8Ri03 | eS vmsmastemsceriute secaPronounce ci s% £4) 


else call done (v, 2); /* ..vix break */ 
else call done ('1'b, 0); /* ..vx “end “begin “break */ 
else if break ® ...0K_*/ 
then goto Loop; /* rule 3b, ...cix break no good */ 
else if end /* ...cx “break */ 
then if v /* ...¢x end */ 
then call done ('0'b, 1); /* ...cvi end (new syllable) */ 
else goto loop; /* rule 3b, ...cc: end no good */ 
7 else v /* ...cx “end “break */ 
701 then if begin & syllable_length > 2 /* ...cv “end “break */ 
70 then goto loop; /* ¢...cicv “end “break begin, rule 3c */ 
70 else call done ('1'b, 0); /* ...¢v “end “break “begin */ 
704 else if beg n /* ...cc “break “end */ 
705 then if syllable_length > 2 /* ..ccc_begin */ 
706 2 then goto Loop; /* rule 3c, ...ccce begin */ 
707 else call done ('0'b, 3); /* icc begin */ 
ne else call done ('0O'b, 0); /* ..xcc “end “break “begin */ 
ah H § /* steteeee return here when unit generated has been accepted *eexe #/ 
ne 3 return; 
714 } /* eeateeee enter here when unit generated was good, but we don't want to use it because tetteeere 2/ 
ne H § /* seeeneee it was supplied as a negative number by random_unit or random_vowel teeeeeeee 2/ 
717 § accepted but keep. trying: 
718 Tf letterS_split (second).second “= ' ' ‘ 
719 2 then nchars = nchars + 1; /* pretend unit was no good */ 
720 2 unit = -unit; /* make positive to say that it would have been accepted */ 
§ goto keep_trying; 
§ /* eteneete enter here when unit generated is no good tttrree «/ 
2 loop: if letters_split (second).second “= ' ' 
2 then nchars = nchars + 1; 
§ goto try_more; 
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/*** procedure done *t*/ 


/* this routine is internal to generate_unit because it can return to loop. */ 
/* call done when new unit is generated and determined to be */ 


/* legal. Arguments are new values of: */ 
/* vf vowel. found */ 
/* sl syllable, Length (number of units in syllable. «/ 
/* 0 means increment for this unit) */ 


done: rocedure (vf, sl); 
del vf bit (1) align ed; /* set if vowel found in this syle ate yetore this unit */ 
dcl sl fixed bin; /* number of units in syllable (0 if this unit is to be */ 

/* added to the current syllable). «/ 


/* if we are not within first 2 units of syllable, check if */ 
/* vowel must Sand this pair «/ 


sl * 
then it voy *eote.! length “= 2 
ref 
chen tt “rules.vowel (password (index-2)) 
t * vowel must precede pair but no vowel Or geeden pair */ 


if vowel_ found /* if there is a vowel in this syllable, * 
then” /* we may be able to break this pair. n 
if not_end_ (2) /* check if this pair may be tregted as break */ 
then goto Loop; /* no, previous 2 units can't end * 
else do; /* yes, break can be forced */ 
cat done C'O'b, 2); /* ...Cxx or ...Cvx */ 
urn; 
else goto. loop: /* no vowel in syllable */ 
/* Check end of word conditions. If end of word is reached: */ 
/* - We must have a vowel in current syllable, * 
/* 2. This pair must be allowed to end syllable «/ 
if st *= 1 
then if index = menare 
pag + — ne 
en got : oop; 
else % f vf = Php 


then goto loop; 
/* A final “‘e’’ may not be the only vowel in the last syllable. */ 


if index = nchars 
then Tf ryses Cpecend). -no_final_split /* this bit is on for ‘‘e’’ */ 
en $s 
then if rules. vowel (first) /* e preceded by vowel is ok, however */ 
en 
else if “vowel_found! syllable_length<3 /* otherwise previous 2 letters must */ 
then goto Toop; /* be able to end the syllable «/ 
else if unit < 0 
then goto geceptes,, but_keep_trying; 
else § 
if unit < 0 
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" Tas accepted_but_keep_trying; 
then cons_count = 0; 
else if st = 0 
then cons_count = cons_count ¢ 1; 
else cons_count = min(S§l-1, cons_count+1); 


if st =0 
then syllable_ eer yore: Length + 1; 
else syllable Lengt 
if opi levis, Length > 
hen laSt_vowel_found = vowel _ found; 
else last_vowel_found = '0'b;~ 
og found ="vf; 
f index - s Llable_ length + 1 “= nchar 


1f-$fr-1984 01:50:05 


/* this unit is a vowel or new syllable is to begin */ 


/* this was a consonant 

/* a new syllable 
/* cons_count gets incremented, 
/* number of units in syllable 


then hyphenated_word (index - syllable. length + 1) = ‘1"b; 


end done; 
end generate_unit; 


VAX=11 PL/I 
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increment count */ 
was started some letters back, 
but no more than 


<o 


F | 
ig-dfe-1944 93:28:08 | URS nSMASTER:CeCiUTE. SRCIPRONOUNCE..PL To (Fy 


44 : } /*** procedure not_end_ *t*/ 
09 : 1 /* not_end_(i) returns ‘1'b when ( password(index-i), password(index-i+1) ) may */ 
19 : : /* not end a syllable, or when password(index-i+2) may not begin a syllable «/ 
\¢ 1 not_end_: rocedure (i) returns (bit (1)); 
i dcl” i Fixed bin; 
15 if i = index 
817 then return (“rules.vowel (password (1))); | 
= | 
18 then if rules.not_begin_syllable (password (index-i+2)) 
819 then return (Th Bs J . 
ast return (digrams (password (index-i), password (index-i+1)).not_end); 
8 ¢ $ end not_end_; 
8 1 
824 1 
825 1 end random_word_; 
COMMAND LINE 
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